Fortran where

where 的本质是生成逻辑数组，然后以其为掩码赋值。

! 把 a 中小于 3 的元素给 b
where (a < 3)
  b = a
end where
! 简单写法
where (a < 3) b = a
! 必须是同样大小的数组，如 c 是 3 个
where (a(1:3)/=0) c = a